Ex Plotly

1 Summary

• plotlyを触る

2 Preparations

2.1 libraries

options(scipen=10)
library(dplyr)
library(knitr)
library(plotly)

3 Area Plot

sample_size <- 555
p1 <- 0.1
p2 <- 0.15

pmf_as_is <- dbinom(0:sample_size, sample_size, p1)
pmf_to_be <- dbinom(0:sample_size, sample_size, p2)

data <- bind_rows(tibble(index = 0:sample_size, name = "ASIS", value = pmf_as_is), tibble(index = 0:sample_size, name = "TOBE", value = pmf_to_be))

plot_ly(data, x = ~index, y = ~value, type = 'scatter', mode = 'lines', color = ~name, fill = 'tozeroy')

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels